home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / LPR.ELC < prev    next >
Text File  |  1993-03-28  |  2KB  |  28 lines
  1. ;;; compiled by jwz@thalidomide on Fri Nov 13 02:08:54 1992
  2. ;;; from file /u/jwz/emacs19/lisp/packages/lpr.el
  3. ;;; emacs version 19.3.4 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (defvar lpr-command (byte-code "┴>½é┬ç├ç" [system-type (usg-unix-v hpux silicon-graphics-unix) "lp" "lpr"] 2) "\
  14. Shell command for printing a file")
  15. (fset 'lpr-buffer #[nil "└ed    ┬$ç" [print-region-1 lpr-switches nil] 5 "\
  16. Print buffer contents as with Unix command `lpr'.
  17. `lpr-switches' is a list of extra switches (strings) to pass to lpr." nil])
  18. (fset 'print-buffer #[nil "└ed    ┬$ç" [print-region-1 lpr-switches t] 5 "\
  19. Print buffer contents as with Unix command `lpr -p'.
  20. `lpr-switches' is a list of extra switches (strings) to pass to lpr." nil])
  21. (fset 'lpr-region #[(start end) "└    \n ─$ç" [print-region-1 start end lpr-switches nil] 5 "\
  22. Print region contents as with Unix command `lpr'.
  23. `lpr-switches' is a list of extra switches (strings) to pass to lpr." "r"])
  24. (fset 'print-region #[(start end) "└    \n ─$ç" [print-region-1 start end lpr-switches t] 5 "\
  25. Print region contents as with Unix command `lpr -p'.
  26. `lpr-switches' is a list of extra switches (strings) to pass to lpr." "r"])
  27. (byte-code "└┴Mê┬├Mç" [print-region-1 #[(start end switches page-headers) "└ ┴P\nè┼╞!ê\n╟U¼è╚ ê ╔ed\"ê\n½ú ╠=½æ╚ ê═╨╤ë╥&ê¬î╘Ü¡ä╒B╫═╥ëë» ╪=¡ï╘=¡à┘ ┌ Fññ\"ê┼█!+ç" [buffer-name " Emacs buffer" tab-width width name message "Spooling..." 8 print-region-new-buffer untabify page-headers system-type usg-unix-v call-process-region start end "pr" t nil lpr-command "lpr" "-p" switches apply berkeley-unix "-J" "-T" "Spooling...done"] 8] print-region-new-buffer #[nil "└ ┴ÿ«£p├┴!qê~ê─ ê┼\n#êedë)ç" [buffer-name " *spool temp*" oldbuf get-buffer-create erase-buffer insert-buffer-substring start end] 4]] 2)
  28.